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**F LLE®*1D**CALBYNAME 


ccccccce AAAAAA LL BBBBBBBB YY YY NN NN AAAAAA MM MM EEEEEEEEEE 
ccccccce AAAAAA LL BBBBBBBB YY YY NN NN AAAAAA MM MM EEEEEEEEEE 

cc AA AA LL BB BB YY YY NN NN AA AA MMMM MMMM EE 

cc AA AA LL BB BB YY YY NN NN AA AA MMMM MMMM EE 

cc AA AA LL 8B 8B YY YY NNNN NN AA MM MM MM EE 

cc AA AA LL BB BB YY YY NNNN NN AA AA MM MM MM EE 

cc AA AA LL BBBBBBBB YY NN NN NN AA MM MM EEEEEEEE 

cc AA AA LL 8 YY ab AA MM MM EEEEEEEE 

cc AAAAAAAAAA LL BB BB YY NN NNNN AAAAAAAAAA MM MM EE 

cc AAAAAAAAAA LL BB BB YY NN NNNN AAAAAAAAAA MM MM EE 

cc AA AA LL 8B BB YY NN NN AA AA MM MM EE cece 

cc Aa AA LL BB BB YY NN NN AA AA MM MM EE eoee 
CCCCCCCC =AA AA LLLLLLLLLL B8888BB8B YY NN NN AA AA MM MM EEEEEEEEEE eoee 
Cccccccce =AA AA LLLLLLLLLL BBBBBBBB YY NN NN AA AA MM MM EEEEEEEEEE eee 

LL IIIIII SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

Lt I] SS 

LL I] $$ 
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LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 
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LLELLLLLLL HI] SSSSSSSS 
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1 

14-Sep-19 VMSLIB.SRC CALBYNAME . 3 2;1 
MODULE util$call aC tiaet L1$$32) ! File: CALBYNAME.832 Edit: BLS0225 

ADDRESSING MOD BE SEX XfERNAL=GENERAL , NONEXTERNAL=GENERAL) , 


ds 


BEGIN 
TITLE "Dynamically call routine in shareable image by name'; 


ASSESSES SLI SELES ST TT TET TTT eect e ec eT re eT c citi iit rir iti titi i titi ite iii is 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
is DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
'® ALL RIGHTS RESERVED. 


® 
® 
® 
® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
. ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
i CORPORATION. : 

® 

® 

® 

a 

* 

® 


!* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PMIPMITUINININIDS 2 3 OS SS -'" S$ OOOOOOOOO 


ABIES UAN OS OONAOU EWN 0 DONAOUS WN OOONOUS Wr 


Lee RRR ARERR AREER eee 
1++ 
FACILITY: Run time Library 
i ABSTRACT: 

This set of procedures implements dynamic Linking to shareable images 
i ENVIRONMENT: 


VAX native, user mode. 


AUTHOR: Benn Schreiber 
CREATION DATE: 5-Feb-1983 
i MODIFIED BY: 
v03-004 BL s0gee Benn Schreiber 16-Jun-1983 
Add flags argument to call to "utilSread object. Upcase 
aol ic name before looking up. 


v03-003 BLS0222 Benn Schreiber 20-May-1983 


NOONE WN 0 OO NOAUE WN (OO ODNOAUE WIN $0 ODNOUFWN OOD ONO UE W ODO ONOU EWN 
a an a nh nk ah i it ni a na a naa a at at ts tt ) 9 Ss ss 4) 4 2A 2 OOOCOCO 
ft 


PUPP BS BS BS BB BE EE WNW AIA RIPON PONIPONONUDY 2 2 SO OO 


NOUS WMO OONOUSWN—OO0ON 


F 16 
UTILSCALL_BY_NA Dynamically call routine in shareable i 16-Sep-1984 4 AX=-11 - 4.0 
UT ILSCALL BY. y y u reable image by 1? Sep 1384 0¢: \3: $4 32 V 


Pa 
0 14-Sep-1 VMSLI a’s CICALBYNAME . " 2:1 1 

; 00s8 1! Copy file spec to hdrbuf if error before signalling. 

: 2B Fb | Spec goes away if message file image activated . 

: 61 0061 1! v03-002 ppc0002 Peter D Gilbert 22-Mar-1983 

: 6¢ B86 } Remove .ADDRESS reterence in UTILSEIND SYMBOL 

: 64 0064 1 | v03-001 BLS0208 Benn Schreiber 18-Feb-1983 

; o2 Rees ; Report full file spec on failed activation if available 


UT PURCALL BY_NA Dynamically call routine in shareable image by 


Declarations 
= 067 1 2SBTTL ‘Declarations’; 
3 $ R98 1! 
3 0 3 1 ! BLISS Libraries 
cine 070 1! 
Eee 0071 1 LIBRARY 
Bee bo 78 1 *SYSSLIBRARY:LIB'; 
ae 00735 1! 
ee 0074 1 ! Define UTILS psects 
s 6 0075 1! 
mf 3 0076 1 PSECT 
= 0077 1 CODE = UTILSCODE 
: 79 0078 1 GLOBAL = _UTILSDAT 
; 80 079 1 OWN = _UTTLSDATA 
>: 81 0080 1 PLIT = VUTIESCODE: 
oe. 0081 1 
3; § ee 1 FIELD 
; & 0083 1! 
ce 0084 1 
; 686 0085 1: mapped. 
; 87 0086 1! 
; 688 0087 1 mid_fields = 
; 69 0088 #1 SET 
; 0089 1 mid_l_next = 
a 0090 1 mid_l_symlst = 
-: | 0091 1 mid_l_base = 
2% 0092 1 mid_livbn = 
: 0093 1 mid_b_namlen = 
ee « 0094 1 mid_t_name = 
:; 8496 0095 1 TES; 
ae 0096 1! 
s 98 0097 1 ! Define a symbol desc 
; WW 0098 1! 
; 100 0099 1 FIELD 
: 101 0100 1 msd_fields = 
; 102 0101 1 “SET 
: 105 B186 1 msd_l_left = 
; 104 01035 1 msd_\_ -fignt = 
; 105 0104 1 msd_w_ba 
; 106 0105 1 msd_l"value = 
: 107 0106 1 msd_b_namlen = 
; 108 0107 1 msd_t_name = 
3; 6109 0108 1 Ss} 
: 110 0109 1 
27 Bias 1 LITERAL 
3; We 111. «1 msd_c_size = 15; 
: 113 Bits 1 
; 116 011 1 GLOBAL 
s 115 114 1 util$gl_imagelist 
: 116 115 #1 
: 117 118 1 EXTERNAL LITERAL 
; #118 117 1 util$m_lnk_imod : 
3.06119 18 1 
: 139 119 1 EXTERNAL ROUT IME 
2 121 120 1 Lib$get_vm, 
Se ; +; ee Libs cau _vm, 
ee 1 ¢ 1 LibSinsert_tree, 
: 126 1 1 Lib$lookup_tree, 


A, 


i Define the Module information descriptor. 


0 
4 
8 
1 
1 
1 


C 
C 


: REF SBBLOCK FIELD(mid_fields); 


UNSIGNED (8) ; 


|Scdeo-198s 09:19:34 


AX=11 Bliss-32 V4.0-74 
VMSLIB.SRCJCALBYNAME .B32; 1 


'Need to get IFD definitions from LIB 


There is one for each image 


'Next in List or 0 if end 
'Listhead of symbols this image 
‘Base of image in memory 

'VBN of GST 

‘Length of name 

'Start of image name 


'Left subtree pointer 
'Right subtree pointer 
‘Balance this node 
‘Value of this symbol 
‘Length of name 

‘Start of symbol name 


‘Length of msd without name 
‘Mapped image Listhead 
'Only read one module 


‘Allocate virtual memory 
'Deallocate it 

‘Insert element into etaary tt tree 
‘Lookup element in binary tre 


Page 


vod 


LSCALL_BY_NA 
“660 = 


a st te as Ss a ss 


DONO UESWN—OOONOu 


vuvuvvv 


SooTuc [> [sOoooooe 


Dynamica 
Declarat 


 s0O0OO 


—> st 


= 
= 


DONO UNE W OOO! 


st Pt st te 


fy call routine in shareable image by 


ons 


Lib$scopy_r_dx. 
str$freel_dx, 


uti ldgettt lenane, 


util$report_io_error, 
utilSread object; 


H 16 

16-Sep-1984 02:19:24 AX-11 Bliss-32 V4.0-74 P 4 
1erge87 1882 99:33:97 es Lda saeicacavnane 6$2;1 O08 12) 
'Dynamic string ¢ 

iFree orres' Serine 

‘Convert string to upper case 


'Get filename descr. from fab/nam 
‘Report 1/0 error 
'Read object file 


Define facility-specific names for shared messages 


SSHR_MSGDEF (UTIL, 286,L0CAL, 
(actimage,error) 
(insvirmem,error), 
(openin,error), 

(c cootn uate 
(readerr,error)); 


‘Error activating image 
‘Insufficient virtual memory 
‘Error opening input file 
‘Error closing input file 
'Read error 


16 
UTILSCALL_BY_NA Dynamically call routine in shareable image b 1b-3e 1984 02:19:24 AX=11 Bliss-32 V4.0-74 e 
yOe e860 get rec - head GST record tes 1 =3ee7} 38 96:39 ¢4 VMSLIB.S CICALBYNAME .B 2;1 — 
ZSBTTL ‘get_rec = Read GST record’; 
ROUTINE get_rec(datavector,recdesc) = 
BEGIN 


1 
1 
+ 
FUNCTIONAL DESCRIPTION: 
Read the next record of the GST. This routine called by 
1 


UTILSREAD_OBJECT 
INPUTS: 


i 
i 
i 
i 
: datavector = address of data vector passed ~ read_gst 
; Ist longword is current MID block 
! 2nd longword is file RAB 
: recdesc = address of dynamic string descriptor to return record 
leo 
MAP 

datavector : REF VECTORC,LONG); 


ea eal eal © at eal eal al eal eal eal eal al al al ae ee oe ee oe oP oP oP 


IND 
midptr = .datavect te : SBBLOCK FIELD(mid_fields), 
irab = .datavector(1) : SBBLOCK; 


L 
status; 


i Read the record. If successful read, copy record to dynamic string 


Status = $GET(RAB=irab,ERR=util$report_io_error); 
IF NOT .status 
THEN RETURN .status; 


Lib$Sscopy_r_dx(irabCrab$w_rsz),.irabCrab$l_rbfl,.recdesc); 


RETURN ss$_normal 
END; 


Sete ee Oe Se Se Se Se Se SH Se Se Se Oe Se Se SH Se Se HSH Se Os Oe Se Se HSH Se Se Oe SH Se Se Se Sse Geese 
at a ik a a a a a ts = “a = = 2 Li“ 2 2 a oS st YY YY 
aidan c pie unt 

DWNOUVE WN 0 OONOUE WN O ODBNOUE WO OONOU SEWN 
ta et a ak a = = as 8 as a 4 2 2 2s 4 1 ss 8 
SN NINN NSA AAAAAAAAAUIIVINIININIUIUIUI EE BB BEE ELE EW 
AUS WN (ODO NOAU EWN 0 OONAU EW OO OONOUE WN "0O0 


pefeleleleleleleleleleleleleleleleleleleleleleleleleleleleleleolalolo) 


-TITLE UTILSCALL_BY_NAME Dynamically call routine in s 
3 hareable image by 

-IDENT \Vv04-000\ 

-PSECT _UTILSDATA,NOEXE,2 


00000 UTILSGL_IMAGELIST:: 


4 
.EXTRN UTILSM LNK_1MOD 
“EXTRN LIBSGET VM; LIBSFREE_VM 
-EXTRN LIBSINSERT_TREE 
“EXTRN LIBS$LOOKUP~ TREE 
SEXTRN LIBSSCOPY_R_DX STRSEREE Dx 
*EXTRN STRSUPCASE UTILSGETF ILENAME 
“EXTRN UTILSREPORT_10 ERROR 
EXTRN UTILSREAD_OBJECT 


UTILSCALL_BY NA 
v04-000 


call yeh Fg shareable image b 


y TBSep-t9me og: 19:3 


000000006 99 
1 


000000006 
50 


3; Routine Size: -UTILSCODE + 0000 


SYSSGET 

_LUTILSCODE ,NOWRT,2 
Save R2 

DATAVECT R, RO 

4(RO) 
UTILSREPORT_10_ERROR 


as SYSSGET 
STATUS. 


RECD 

4 ih 
L 
R 


) 
omelet R_DX 


AX=11 Bliss-32 V4.0-74 
VMSLIB.SRCJCALBYNAME .B352; 1 


; Routine Size: 57 bytes, Routine Base: _UTILSCODE + 0030 


K 16 
UTILSCALL_BY_NA Dynamically call routine in shareable image by 16-Sep-1984 02:19:24 AX-11 Bliss-32 V4.0-74 Pp 
v04-000 compare, Symbols - Compare new symbol to node : 12-88-1382 96:33:44 VMSLIB. SRCICALBYNAME .B 2:1 tat «a5 | 
; 180 177 1 XSBITL. ‘compare_symbols - Compare new symbol to node'; 
3 184 178 ROUTINE compare, Symbols (desc node) = ' 
; 186 17 BEGIN 
; 3 180 ++ 
H ; ¢ ! 1 FUNCTIONAL DESCRIPTION: 
: 138 1 Compare symbol against symbol in current node 
; «188 185 ! INPUTS: 
; 1a? 01 § ; 
; 190 01 : desc = address of descriptor of new symbol 
; 6191 4 : node = pointer to an MSD block 
3 135 189 : 
; #419 190 Coed 
; 194 0191 MAP 
s 95 8135 desc : REF $BBLOCK, 
; 196 019 node : REF $BBLOCK FIELD(msd_fields); 
; 197 0194 
; 198 0195 LOCAL | 
; I 0196 retval; 
; 200 0197 
; 201 0198 IF (retval = meapieatehoraehe = = oe iy oo th],.desc(dsc$a_pointer], 
; 202 0199 -node(msd_b_namlen],nodelmsd_t_name],0)) NEQ 0 
; 203 0200 2 THEN RETURN .retval 
; 204 0201 2 ELSE RETURN SIGN(.descCdsc$w_length] - .node(msd_b_namlen]) 
; 205 0202 1 END; 
| 
007C 00000 COMPARE_SYMBOLS: | 
«WORD Save R2,R3,R4,R5,R6 ; 0178 
56 04 AC 00 00002 MOVL DESC, R6 ; 0198 | 
54 08 AC DO 00006 MOVL NODE, R4 3 0199 | 
50 OE AS 9A OOO0A MOVZBL 14(R4), RO ; 
55 01 00 BRE MOVL #1, R5 : 
50 00 04 B86 66 2D 00011 CMPCS (RO), @4(R6), #0, RO, 15(R4) ; | 
OF A4 00017 : | 
03 1A 00019 BGTRU 1$ : 
55 01 09 00018 SBWC #1, R5 : 
50 55 8 Bee 1$: MOVL RS, RETVAL : 
15 12 00021 BNEQ 2$ 3 | 
‘ 54 OE A4 9A 06 3 MOVZBL 14(R4), R4 3 0201 | 
0 66 MOVZWL (R6), RO ; 
54 20 C2 O002A SUBL2 RO, R4 ; | 
4 D5 0002D TSTL R4 : 
50 oC 0002F MOVPSL RO : 
50 50 02 96 EF 00031 EXTZV #2, #2, RO, RO : 
5 Y 00 4 DECL RO 3 
4 00038 28: — RET 0202, 
i 


<c 
a 
_ 
Cc 
Sad 
oc 


LL_BY_NA Syneatcally call routine in shareable image b y 18-50 Sep-1984 te: \9: $4 AX-11 Bliss-32 V4.0-74 
alloc symbol = Allocate MSD block for new symbo 1 ~3ep-1984 VMSLIB.SRCJCALBYNAME .B8352;1 


I ZSBTTL ‘alloc_symbol = Allocate MSD block for new symbol’; 


A 
0 


3 
Ss S 


SOVONAOUSWN —"OOONOUSWNO0O~ 


ROUTINE alloc_Symbol(desc,retadr) = 
BEGIN 


1 
'¢ 
FUNCTIONAL DESCRIPTION: 
' Allocate an MSD block for new symbol 
3 
2 
; 
2c 
2 
2 
2 
1€E 


NOs 


! INPUTS: 


i 

' 

i 

' 

i desc = address of string descriptor of new symbol 
retadr = address of longword to return address in 
i 


P 
desc : REF $BBLOCK 
retadr : REF VECTORC. LONG); 


ne to 
sta 
nedetr’ : REF SBBLOCK FIELD (msd_fields); 


status = eo vm (ZREF (msd_c_size+.desc(dsc$w_length]) ,msdptr); 
IF NOT .statu 
THEN BEGIN 

SIGNAL (util$_insvirmem,0,.status); 

RETURN .status 


D; 


WAPRIPIPPSNITOPUNINID 2 2 2 SO SO SS OO 


msdptr(msd_l_value) = 0; 
aoe trimsd_b_namlen] = .desc(dsc$w_length); 

OVE (.msdptr&msd_b “namlend, .descldsc$a pointer], msdptr(&msd_t_name]); 
lonene 0) = -msdptr; 


— ss$_normal 


Bete Se Ge Se Se Be Se Ge Ge Se Se Se SH Ge Se Se Se Ge Se Se Se Se ee Sse Se Se Se ee Se Ge Se Se Se eeae 
PROPIPOPIPSPINIPININININPOPONPOPUNIPINONOP NOP NoNnononofpounsfponsponofrornrony 
new ee lolofololololelolololelefelololeloleloloic) 
POPOPOPOPOPOPONoPoNofonononopnopofrofrornypons 
WWAWWIANAIAAI APDIP NPDPONIPININYD 2 2 OO OO MS OOOO 
CONAUESWN | OOONAULS WN“ OOONOVLWN—OOM 


FPN 
MOC OONOUSWN— 


007C 00000 eenaes adi 


RD Save R2,R3,R4,R5,R6 
SE 08 ¢2 0000 SUBL2 #8 
04 AE 9F 0000 PUSHAB MSDPTR 
52 04 AC pO 0008 L DESC, R2 
04 AE 62 3¢ 0000C MOV2WL (R2). 4(SP) 
04 AE OF £0 0010 L2. #15, 4(S 
04 AE SF 00014 PUSHAB 4(SP) 
000000006 99 9 FB 00017 CALLS #2, LIBSGET_VM 
D9 OO1E OVL RO, STAT 
15 53 €8 000 BLBS § STATUS, 1$ 
5 DD 00024 PUSHL STATUS 
E D4 00 6 CLRL rita) 
000000006 rere - Pe 0 CALLS +3 cease GNAL 
98 9 fi 8 § OVL STATUS, R 


M 16 

UTILSCALL_BY_NA Byreateathy call routine in shareable image by 16-Sep-1984 06:19:64 AX=11 Bliss-32 V4.0-74 Page 9 
v04-000 alloc symbol = Allocate MSD block for new symbo 14-Sep-1984 15:27:31 VMSLIB.SRCJCALBYNAME .832; 1 (5). 
04 00038 RET Sk 
56 04 AE 00 00039 1$: MOVL MSDPTR, R6 ; 0232 

OA ag yi 0030 CLRL 10(R6) $ 
OE A6 6 0 00040 MOVB (R2), 14(R6) i 0233 
50 0E A6 9A 00044 MOVZBL 14(R6), RO ; 0234 | 

OF A6 04 B82 50 28 90048 MOVC3 RO, a4(R2), 15(R6) : 
08 BC 56 DO 0004 MOVL R6, @RETADR : 0235 
50 01 00 0005 MOVL #1, RO ; 0237 
04 0005 RET ; 0238 

; Routine Size: 86 bytes, Routine Base: _UTILSCODE + 0069 


namically call routine in shareable image by. 18-Sep-1984 0g: 19:4 one teeta 


UTILSCALL_BY_NA D 
Vou060 giobel. rou ine = Process global symbol from 


Ww 
Ow” 


kote aan tee ote tiene 
WN —O DONAULS WI" OOOasoe 


POPIPIPONYNIPINININYINININIDNINYPINYNPINPIPPUPIPYPIPYAINIPININININPIPIPYNYIPYNAYNY 


NNN NN NA AAAAAAAAA MII TU SB PEP PLL EE 
Qik WN 0 OONOUE WN 0 OOVNOUE WO OONOUS UT 


0 
0 
0 
0 
0 
0 
0 
0 
0 
Q 
0 
0 
0 
0 
Q 
0 
Q 
Q 
0 
0 
0 
0 
0 


1 


-Sep- VMSLIB.SR 
ZSBTTL_ ‘global_routine = Process global symbol from GST’; 
ROUTINE global. Fout inetaynbot desc’ synbol Value,symbol. fla Ss, 
entry_mask,datavector,gsd_desc) = 
om 

FUNCTIONAL DESCRIPTION: 


i This routine galled with global symbol from shareable image. A 
: block describing the symbol is allocated and put in the symbols 
: list for this image. 


symbol_desc : REF $BBLOCK 
symbol _value : REF VECTORL,LONG], 
symbol _flags : REF Pear geet ° 


datavector : REF VECTOR NG]; 
BIND 

midptr = .datavector(0] : SBBLOCK FIELD(mid_fields); 
LOCAL 

msdptr : REF SBBLOCK FIELD(msd_fields), 

status; 


status = LibSinsert_tree(midptr(mid_l_symlst],.symbol_desc,2%REF(1), 
compare_symbols,alloc_symbol,msdptr); 
IF NOT .status 


THEN RETURN .status; 
} Set symbol value. Relocate if needed 


msdptrimsd_l_value] = .symbol_value(0]; 
IF symbol Flags(d3 AND gsy$a_rel) NEQ 0 
THEN tr = 


msdptrimsd_l_value -msdptr(msd_l_value] + .midptr{mid_l_baseJ; 
RETURN ss$_normal 
END; 
0004 00000 GLOBAL_ROUTINE: 
.WOR Save R2 
5 08 cs pone SUBL #8, SP 
5 14 BC 00 0000 MOVL @DATAVECTOR, R2 
04 AE OF PUSHAB MSDPTR 
9B AF OF C PUSHAB ALLOC_ SYMBOL 
FFSE F OF F PUSHAB COMPARE SYMBOLS 
Oc AE q po \3 MOVL #1, 12(¢5P) 
C AE OF 1 PUSHAB P 
4 A pp Bia PUSHL PAB pt {DESC 
4 A F 1 PUSHAB ) 
000000006 90 Fg CALLS #6 LSS INSERT TREE 
E L STATUS, 2$ 
DO 0002A MOV MSDPTR, RO 


| 
| 


-. 
UTILSCALL_BY_NA Dynamically call routine in shareable image e9 -1984 02:19:24 AX-11 Bliss-32 v4.0 ° 

VOar000 ft Pobel routine = Process henge symbol iron ty 1 Sep Het 1 96:33:44 VMSLIB.SRC CALBYNAME . 382: 31 — 

A 08 D MOVL ° YMBOL Mega Fi 10(RO) : 

05 o¢ 8 BS p? 009 BBC asy vaso FLAGS, 1$ 3 

08 A2 CO 000 ADDL2 B(kz) (RO) : 

DO 0003D 18: MOVL ab : 

04 00040 2$: RET : 


; Routine Size: 65 bytes, Routine Base: _UTILSCODE + OOBF 


PI 5. 
UTILSCALL_BY_NA Bynentcal call routine in shareable image b Sep 4 02:19:24 AX-11 of ss-32 V4.0 i. 
Vout boo read gst = Read Gsi- from image stmt | OE +402 ARC eS ce hk Pet oa age 16 


77 #1 BSeTTt *read_gst - Read GST from image’; 


; 3 

; & 7 ROUTINE read_gst (ifdptr,midptr) 

; 285 rt pe tape ge aenphatnast cle 

; f ; * FUNCTIONAL DESCRIPTION: 

; 89 ; ; Read the GST of the image just loaded 
3 31 g INPUTS: 

: 38 5 ! ifdptr = address of the image IFD (image file descriptor) 
: 294 8 4 ! midptr = address of MID block for image 
: $38 90 5 maP 

: 297 8 91 ifdptr : REF $BBLO 

: 4 8 4 midptr : REF SBBLOR "FIELD (mid_ fields); 

: 300 0294 2 LOCAL 

; 301 0295 status, 

; 4 0296 datavector i cktobs sen ,LONG), 

; 30 0297 ubuf ehees se. maxrecsiz), 

3 04 8 98 ifab : 

; 305 99 irab : Han “PECL: 

; 306 0300 inam : $NAM che 

; o? $30) esbuf : SBBCOCK nam$c_maxrss); 

: 308 p 0308 sales cI ENS (fat itds 1)<0,16,0 

3 2 r curpro >, 
311 P 0305 FNAZ, Citaperb taba curprogi)<33, 33,05, 
; \¢ P pene FAC=(BRO, 

ee P 030 zinam, 

i \ Ba55 SHR=(GET,PUT,UPI)); 

: 316 P0310 2 SNAM_ INIT (NAN=inam, 

; 3517 p bat) RSS=nam$c_maxrss, 

; 318 P 0 \¢ RSA=esbuf, 

: 19 P ba! ESS=nam$c_maxrss, 

; 31 8 1% ESA=esbuf); 

; O31 ifablfab$l ctx} = util$_o 

; 355 0 19 status = SOPEN (FAB=i fab; “PRReutilsreport.. io_error); 
3 $e oe18 If NOT .sta 

: 5 0 i? THEN RETURN .Sstatus; 

; $8 P $f SRAB_INIT(RAB=irab, 

3 8 P g FAB=i fab, 

3 9 P UBF =ubuf, 

2 0 P 4 USZ=ob * _maxrecsiz, 

: 5 5 ROP=LOC) 

; § $ irabCrab$l_ctx] = util$_o openi 

3: 334 8 status = SCONNECT(RAB=ira ERReutilSreport. io_error); 
: 5 G IF NOT .status 

5 0 THEN BEGIN 

3 1 Bryce (F Ape t tab); 

: $ 8 § RET URN status 


1 
UTILSCALL_BY_NA Dynamically call routine in shareable image b 1b-5e 1984 02:19:24 AX-11 Bliss-32 V4.0-74 Page 13 
Vou+060 read gst -"Read GST from image ee 1 730071382 96:33:44 VMSLIB. SRCICALBYNAME .B 2;1 . d 
; 340 & ' 
: re 5 Tell RMS that records are variable Length, so we can read the GST 
; 34 $ ifab(fab$v_esc] = 1; 
; 344 8 ifablL fab$l_ctx] = rme$c_setrfm; 
; 345 ifablfab$b rfm] = fab$c_var; 
i 346 40 2 status = SMODIFY(FAB=i fab, ERR=util$report_io_error); 
; 34 1 IF NOT .status 
; 348 rk: THEN BEGIN 
; 349 4 SCLOSE(FAB=ifab); 
; 0 4 RETURN .status 
; 1 rf END; 
$ 38 43 Point to and read the GST 
3 399 49 irab repel rtedy = ,midptr(mid_l_vbnj; 
; 2$ 50 irabCrab$w-rfa4] = 0: 
3 7 51 irablrab$b_rac] = rab$c_rfa; 
; 358 26 irablrab$l_ctxj] = util$_readerr; 
; 359 035 status = SFIND(RAB=irab-ERR=util$report_io_error); 
; 360 0354 IF NOT .status 
; 361 0355 THEN BEGIN 
; ¢ 0356 SCLOSE (FAB=i fab); 
3 $07 Baek 2 -Status 
3 36s tie irabereb$b_rac] = rab$c_seq; 
; 365 0361 secaeee sera ys = ,midptr; 
; 369 Bae6 datavector(1) = irab; 
: 370 O86 status = util$read_object(get_rec ,ZREF (util$m_lnk_1mod), 
; $ 0365 datavector,global_routine); 
3 Le; 0366 ifabCfab$l_ctx] = util$_closein; 
; 374 0 of SCLOSE (FAB=i fab, ERR=util$report_io_error); 
3 N .status 
75 0369 RETUR 
; 376 0370 1 END; 
-EXTIN = SYSSOPEN, SYSSCONNECT 
-EXTRN SYSSCLOSE, SYSSMODIFY 
«EXTRN SYSSFIND 
O1FC 00000 READ_GST: 
- WO Save R2,R3,R4,R5,R6,R7,R8 ; 0278 
8 900000006 00 9£ 00002 MOVAB SYS$CLOSE ; 
00000006 00 9€ MOVAB UTIL SREPORT 10_ERROR, R7 ; 
E F6 ff 9E 19 dey 3 O(SP), 3 $ 
0050 «BF 00 6E ‘A ee 2c 1? MOVC #0, (SP), #0, #80, SRMS_PTR ; 0308 
1A8 CE 5003 F B 1F MOV 0483, $RMS_PTR ; 
1B CE 434 F 6 MOV #1721 SRMS_PTR+22 ; 
1c? CE 2 MOVB #2, SRMS_PTRT31 ; 
1D0 ce 0104 CE MOVAB INAM, S$RAS_PTR+40 ; 
4 ‘s D MOVL Vat R, R : 
0104 ~=sCE 8 AO D D MOVL 4(RO), SRMS_PTR+44 : 


Page 14 
F A. 4 AX=11 Bliss-32 rine B82:1 (7) 
ly, call routine in shareable image by 16- Sep 1986 98: 27:8 Aaa ? 0314 
UTILSCALL_BY_NA Shed ant -"Read GST fron image ‘ OvB 29 RO 2g, Shs PH86. SRN. PTR : 0 
V04 - one te 14 AQ 90 y MOVCS cS - : 
. 78, $RMS_P : 
00 104 CE MOVW = #245 3 ; 
0060 8F 104 ce 8003 br 9 5 MNEGR tau? pe ens > PTR+4 ; 
1 AE 9E OO05F 4 : 0316 
CE 04 5 MNEGB RMS PTRO12 ; 03 
i 13 04 i 3 : Nad sts TFAB+24 ; 0317 
F OD ; 
1C0 CE O11E109A BF 00 % Pus = ; 
O1AC i Pe BBO CALLS i 4+ 4 ; 0318 
000000006 90 ; 09 HY BLBS STATUS, 1 ae + 0325 
008 i Q008F 18: ROVCS #0, (SP), #0, #68, SRMS_ 
TR ; 
00 “i 4 CE | 0009 MOVW #17409, SRMS_P ; 
rae bie8 EE soo ssh i D0 i ROW #2068, . ee 
0168 CE 8F . BO OO0A AB PTR+ : 0327 
184 CE 0800 0080 MOV R+60 : 
oes CE SIAB CE OF 000B7 MOVE itt 1RAB+24 ; 0328 
O17¢ CE O11E109A BF fi NOBE PUSHL 
017C¢ CE 0 7 OD 44 $94 PUSHAB ONNECT : 
0168 CE 9F O00C CALLS, 2, SYSSC ; 0329 
02 FB 000CD MOVL = RO, US ; 0337 
panseeged 20 08 5007 Biec, stitus. 28 i 0358 
af 38 4 OOODA a #1. IFAB+24 : ties 
ns) oe ea : 
ont) a ae 1 
O1AC 05 PB OOUEF CALLS ie SYS$MO : 034 
000000006 90 56 OO O00F6 BLBC STATUS” 2$ ; 
: 56 £9 O00F MOVL hip TR, Ne apelé ; 0350 
gf 08 AC DO QO0F MOVE §—12(Re) I : 0351 
L : 
ieee E Bs a nove aisrt7s70,. IRAB+24 0388 
O17e CE O11E1082 BF BO OOI0F PUSHL RY 
17¢ CEO 7 DD 00118 ti ; 
0168 : ye gtse CALLS ne srt : oss 
000000006 90 09 : 5 BLBS STATU S, 3$ ; 
a : es i ie + a SYSSCLOSE : o 2 
F RB 4 : 1 
* i it i 38: CARB AVECTOR : 8366 
me 8 ov a *DATAVECTOR®4 : 0364 
AD 4 MOVAB h ROUTINE ; 
Fe AD 0164 43 4 \; PUSHAB cL0B L se 3 
FE79 A> 3 0014 nOVreL mUTIUSRLLN LNK_1MOD, 8(S 
AB 
08 AE Bc AE OF 0014 PUSHAB GET REC 
mi CF $F 0018! PU 


UTILSCALL_BY_NA 


; Routine Size: 


Dynamicaic, 


all routine in shareable i b 

read gst - Rea GST from image ste epee 
4 F 
O88 
7 


000000006 
01C0 CE 011&1050 
O1AC 
¢ He £8 001 
04 001 
_UTILSCODE + 0100 


— i. 


fan FS OVMOW 


373 bytes, Routine Base: 


Sep-1 
b-se ~Sep-1 


= 
wn 


AX-11 Bi tag =32 V4.0-74 
VMSLIB. $Ri CALBYNAME .832; 1 


Be 99:27:81 


CALLS u4, UTILSREAD_ OBJECT 
MOVL STA ys 

VL #167 7472, IFAB+24 
PUSHL RT Oe 

USHAB 
CALLS ee SYSSCLOSE 
he oe 


v 
J 
ao 
a 

NO 

w 


UTILSCALL_BY NA Dy 


7 
7 


OONOW 


95 


; Routine Size: 


50 


7 


OOOO OO OCBDDOOWDDOOWONNINAN 


OOooCooooooooo[ooooo 
NAME WN OO ONOAOUE WN OOONOuU 


WWIII WW 


oooom 
BRS 
ooowuwuno 
m—OO0e 


namically call routine in shareable image by 16-Sep-1984 02:19:24 AX-11 Bliss- 4.0-74 
find "image = Find image in mapped images Rise” 1$-se0-1964 96:39:94 VMSLIB SRE CACBYNAME. 8 2;1 


RSaTTL *find_image - 4 Ae age. in mapped images List’; 


1 ROUTINE find_Tmage(desc,m 
BEGIN 


"FUNCTIONAL DESCRIPTION: 
i Look up image in mapped image List 

INPUTS: 

i desc = address of descriptor of image name 

i midptr = address of longword to store MID block address if found 


P 
desc REF $BBLO 
aidptr : REF vECTORC, LONG); 


LOCAL 
ptr : REF SBBLOCK FIELD(mid_fields); 


ptr = util$gl_imagelist; 
WHILE (ptr = .ptr&mid_l_next]) NEQ 
DO IF CHSEQL(.descCdsc$u_length],. jdesctdac$, pointer], 
-ptr(mid_b _namlenj,ptr mid_t_name],0) 
THEN BEGIN 
midptr(0) = .ptr; 
Ek: RN ss$_norma 


o— 0 


003C 00000 FIND_IMAGE: 
WORD 


CLRL RO 


. Save R2,R3,R4,R5 
54 00000000" 00 9€ 0000 MOVAB UTILSGL_IMAGELIST, PTR 
55 04 AC 00 000 MOVL DESC, R 
54 64 DO 0000D 1$: MOVL (PTRS, PTR 
17 13 0001 BEQL 2s 
50 10 Ad QA 1 MOVZBL 16(PTR), RO 
00 04 8B 04 BC D 16 CMPCS a@DESC, @4(R5), #0, RO, 17(FTR) 
C 12 OOO1F BNEQ 1$ 
08 Bf 4 0 1 MOVL PTR, @MIDPTR 
‘ MOVL #i, RO 
23: 
B 


ff 


44 bytes, Routine Base: _UTILSCODE + 0275 


UTILSCALL_BY_NA 
aie - - 


Be Se Be Se Se Se Se Se Se Ge Se Se Ge Se Ge Ge Ge Ge Se Se Ge Ge Se Se Fe Se Se Se Se Se Se Se Se Fe Se Se Ss Oe Se SH Se Se Se Se Se Se HSH Se Se SSeS Se Se Se we 


—"DOBNOUES WN 0 OONOUS WN 


Dati tle tein tke ke ee tek hehe eet ee ee ek ee ek ee ee 


SAAN LAA AAI III IIIS tt 
owen Uw 


cv 


1 
mically call routine in shareable image b 1b-se -1984 19:26 AX-11 Bliss-32 V4.0-74 
WtStind.¢ Hind symbol by otring Rowe” ientep-ione SScarist | Poms te bk sche py nane of2-1 Page if 


BITL ‘util$fin mbol = Find symbol by string name’; 
OBAL ROUTINE aithl ted neabal Aibeae ke tour las eel weteded © 


*mrow ¢ 
(3) 


+ 
FUNCTIONAL DESCRIPTION: 
Return the address of the named routine. 
INPUTS: 
image_desc = Address of string concer ipter for image name. If 0, 
the system shareable image Library will be searched 
routine_desc = Address of string descriptor of symbol to find 
retadr = Address to return symbol value in 
OUTPUTS: 
If the image can be found and the symbol is found in the image, the 
relocated (if needed) symbol value will be returned in the lLongword 
pointed to by retadr. 


ROUTINE VALUE: 


1 
1 
; ss$_normal = found, value returned ok 
any errors from services called 
MAP 
fangs donc : REF $BBLOCK 
routine desc : REF $BBLOCK, 
retadr : REF VECTORC,LONG); 
4 
4 
4 
| 


FRERRRR RRR RRR RRR RPP RPP RRP PEE 


LOCAL 
status, 
tempvec : REF ves ton LONG), 
d_desc : atte. 
desc : VECTOR 


rt c_s_bin], 
tr: REF $BBLOCK, 
Ffaptr REF $36 


ds 

ONG 
: RE LOCK, 

midptr : REF $BBLOCK FIELD(mid_fields) 

msdptr : REF OCK FIELD (msd_fieldsS, 

dfimam : VECTORL2,LONGJ, 

: VECTORC2, LONG); 


IF NOT find_image(.image_desc,midptr) 
THEN BEGIN 


Image not yet mapped. Attempt to map it and then read in the GST 


IF NOT (status = Lib$Sget_vm(ZREF (512) ,midptr)) 
THEN BEGIN 

SIGNAL (util $_insvirmem,0,.status); 

SS ae -Status 


SPSRRERE fan lo lo leleolealeleleleleleleolelelelelelelelelelelololo) 
= PS a at ot et et z 


adrvec 


adrvec iF = 1; 
adrvec = F 
dfinam£0) = ZCHARCOUNT('SYSSSHARE: EXE"); 


1 
UTILSCALL_BY_NA Dynamically call routine in shareable image b 15- Sep-1984 4 AX=11 a) s$-32 V4.0 P CA 
Vouto00 ueilstind “Symbol = Find symbol by string Kens” Het 7 96: 33: $f VMSLIB.S CICALBYNAME . % 2:31 _ a vo 
4 4 dflnam(1) = UPLIT BYTE('SYSSSHARE: .EXE'); 
rh 4 rf: status = $! — (NAME = image. desc, 
ree P 04 HDRBUF=.m 7 
ti§ P 04 IMGCTL=iac “merge OR iac$m_expreg, 
47 P 0465 INADR=adrve 
474 4 RETADR=adrvec) ; 
475 4 IF .statu 
$78 4 8 THEN. stetus = SIMGFIX; 
47 rf} IF NOT .status 
478 470 THEN BEGIN 
479 47) tempvec = mneee 3 
ret tts ia = os *eneve vecl2J; 'Get FAB address 
48 474 bstovece $c_s_bln,util$getfil (.ptr) ); 
a88 475 1 Ate is pepe 8 — z % yer: ptr) ,desc 
sc$c n,.image_desc,desc 

tH ai? cHSAOY et wes sis actect saat 'Copy the file spec 
487 rhe SIGNAL (utils octias -1,desc,.status); 
488 4 LibStree. vm(ZREF (512) .-midptrs: 
489 RETURN .Status 


then read the G 


tempvec = midpres 'Get IFD address to get filespec 
ptr = .tempvecl0 

ptr = .ptr + ptr ie _symdbgof fi; 

ifdptr_= .tempvec 

ni deer mid_l_next “uti l$gl_imagelist; 

imagelist = oat 3 


PREP E PEERS 
SSLESFLSLS 


migptr mid. \- <vont = aati agstyon 
mage_ descl rhe length; 
OVEN. iiade des ascty wLengrn imagedescldsc$a pointer], 


SOS99999900000000 
RRRRRRRRLKLLRERRLLKLE 


MEW “OO ONAOUS WHO 


PPP VIII 


read gst(.ifdptr,.mid aa 
; END: < . 
Image is mapped, — and return symbol value 


WMO 


dsc$b_class] = orm: class_d; 
dsc$b_dtype] = 5 865k- dtype_ t: 
Gscta_ pointer) 


4. gese dsc$w_length) = 
d-desc 
a $n sc 
$Supcase‘d s7esc..rout ine desc) 
ne = LibSlookup_ tree(midptrlaid. L_symlst],d_desc, 
compare_symbols-msdptr); 
str$freel_dx(d_desc); 
IF status 
THEN BEGIN 
retadr(0) = emsdotrinsd_( value); 
RETURN ss$_norma 


4 

4 

4 

4 

4 

4 

4 

& 

4 

4 

4 

4 
END; 
i Image is now ma gee. Insert into the mapped image List ad 


SOoooocoocoocococoooooooo 
PUPP TTT 
a 

Onl wt—0O0@ w 


horonorory 
RUM SS OCBNOUNRUIWOSBLRA RUNS 


Se Oe Se Se Se Se Se Be Ge Se Se Se Se Se Se Se Se Ge Ge Ge Ge Ge Ge Se Ge Fe Ge Se Ge Se Ge Se Se Se Ge Ge Ge Se Se Ge Se Se Fe Se Ge Se Se Se Se Se Se Se Se Se Se Sees 


UTILSCALL_BY NA Dy 


moO 0COnNe 


45 58 45 2€ 3A 45 $2 41 


04 
000000006 


000000006 


000000006 


000000006 


000000006 


AM OWNS SP OFIM VIMOOMOOMA™ 


POOMOONMVVMO SF OF MMOulPy ProyP 


PrP Prurrn~ 
omm mm 


NOOO >POUCrO 


lL routine in shareable image by 
lL = Find symbol by string name 


48 53 24 53 59 53 O02A1 P.AAA: 


OFFC 00000 


i 
dO 


Como "OWwOowms" 


nO FC OMgS MMS NS OCT oOOo NOS Nw 


_ 
wn 


at td IO 
UmRUkm@ouvo- Sen 


Pew NUIT & NMOlM CvuIn oo 
~ 
wr 


vila at lie make nie ie ee or se 


Ww 
wn 


oun 


SS SOS OO SOO OO OS OOO SOS SSS SSSSSSSSSeS 
ee ee ewe ww we wee emo foleielalelolololololoia la) 


~J 
DWOWOODOW OOD VO MNOMOYO Yoo FOU DOO NA "OWS 


1$zSe0-196s 08:18:34 


BEG 

SIGNAL ((,sta us AND NOT sts$m_severity) OR sts$k_error); 
RETURN .status 

END; 


-ASCII 
-EXTRN 
-ENTRY 


\SYSSSHARE: .EXE\ 
SYSSIMGACT, SYSSIMGF IX 
UTIL SF IND SYRBOL. Save R2,R3,R4,R5,R6,R7,- 


MIDPTR 
IMAGE _DESC, R9 


pe SYSSIMGACT 
RO, STATUS 


STATUS, 3$ 
a0, SYSSIMGF IX 
RO, STATUS 


Sete Se Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Se Se Se Se 


- UTILSGETF ILENAME 


Page 19 
. (9) 


0404 


0446 


; 0451 


Puno 


FRELE KK 


SS 


UT FLBCALL BY NA Dynaai cally call routine in shareable image by 


3; Routine Size: 


000000006 00 


il$find symbol = Find symbol by string name 
1C AE 60 08 2 
1¢ o8 
1C = AE 69 6 
04 =BE $8 BE 1C =AE 
AE 04 AE D 
5A pp 
0M oD 
011E12BA Hy DD 
000000006 00 4 FB 
4 AE OF 
04 AE 0200 8F 3C 
00000000G 00 05 re 
seo OE 
28 5 00 00 
2 6 D 4 
9 04 A? 3C 000 
5 50 CO 000 
66 00000000’ 9? DO 000 
00000000° 00 6 00 000 
Of A6é 04 000 
08 A6 per 0 
OC A6 04 A 8 4 
10 A6 69 1 
11 AG 04 869 9 2 3 
6 DD 001 
58 OD I 
FE8B «CB se, 1 
24 AE 020E0000 F 00 001 
AE D4 001 
01 
D1 
D1 
1 


7E 10 Ag 
000000006 
000000006 op 


oc C 


pas 
E 0 
000000006 


50 


377 bytes, Routine Base: 


dee 
A F 
02 FB 
08 AE 9F 00 
FOBB =CB OF 001 
aes: 
SB 
24 a oF RR 
mat 
OA A 08 001 
OT Be 001 
gH 
at 
oc C th 
04 


~~ 
= 
—= 


_UTILSCODE + O2AF 


a 


CO F SIMO OP MOOWUN A LS BM PWM 


NIIP OA OU MAR F FMA MALIN = AOOOO® F MMMMMOCSCHMOODSOO > > > DOOD 
BOND dno A DO A Se AO DOI ON & DAD 3 


-Sep-1 
~Sep-1 


4$: 


5$: 


6$: 


~ 
bad 


oo 
wn 


oO 
nr 


Be 19:27:81 


AX-11 Oi fegeze V4.0-74 
VMSLIB.SRCJCALBYNAME .852;1 


MOVC3 #8, (RO), DESC 
TSTL p §¢ 

BNEO 

MOVC3 #8, (R9), DESC 
MOVC3 DESC, aDESC+4, @MIDPTR 
MOVL MIDPTR, DESC+4 
PUSHL STATUS 

PUSHAB DESC 

PUSHL 

PUSHL #18748090 

CALLS #4, LIBSSIGNAL 
PUSH 

MOVZWL #512, 4(SP) 

PUSH 

CALLS #2, LIBSFREE_VM 
BRW 

MOVL MIDPTR, R6 

MOVL  R6, TEMPVEC 

MOVG (TEMPVEC), PTR 
MOVZWL 4(PTR), RO 

ADDL2 RO, PTR 

MOVL  UTILSGL_IMAGELIST, (R6) 
MOVL 6, UTICSGL_IMAGELIST 
CLRL =—-_-«& (RO) 

MOVL  ADRVEC, 8(R6) 
MOVL 4(PTR), 12(R6) 
MOVE (R9), 16(R6) 
MOVC3 (R9). @4(R9), 17(R6) 
PUSHL 6 

CALLS #2. REA 

MOVL 18451958 D_DESC 
CLRL SC+4 

PUSHL ROUTINE DESC 
PUSHAB SC 

CALLS #2, STRSUPCASE 
PUSHAB MS 

PUSHAB COMPARE_SYMBOLS 
PUSHAB SC 

ADDL3 #%, MIDPTR, -(SP) 
CALLS #4, LIBSLOOKUP_TREE 
MOVL RO. STATUS 

PUSHAB D_DbESC 

CALLS #1, STRSFREE1_DX 
BLBC STATUS, 8$ 

MOVL MSDPTR. RO 

MOVL 10(RO). @RETADR 
MOVL #i, RO 

BCLs #7, STATUS, RO 
BISL We, RO, -(§P) 
CALLS #1. LIBSSIGNAL 
CLRL  a@RETADR 

HOVL STATUS, RO 


Se Se Se Se Se Se Se Se Se Se See Se Se Be Se Oe Se Se Be Se Be Oe Se Be Be Se Se Se Se Se Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Fe Be Se Se Be Se Be Be 


m1 
VOrHO60- == TEMES Fad eSymbot “Find symbol by string Rene” IkeSep-ione FS:o7:81 — EYMsLIeCSRESCALOYNAME 682; 1 Page 6) 


UTILSCALL_BY_NA Dy 


5 


; 


PUPA ASIII 
HPAP NAGSNy & 
OOONOUSWwIN—O 


; Routine Size: 


SOOoOoooooooo°o°oo 


N 1 
routine by stringenane 1é-Sep-1984 $$:27:91 — HWMSLIBCSRESCALBYNARE 


y call rou 
symbol = C 
B i 
I 


Cand 

~-o 

P33 
me 


C 
3 

1 ‘ut cart gyabol = Call routine by string name’; 
SL ORAL ROUT utiTScall symbol (image _desc,routine_desc,argist) = 


Call a routine by name. ARGLST argument is the start of the argument 
List (i.e. the count of arguments), and .ARGLST arguments follow. 


i 
i 
! 
| CALLING SEQUENCE: 
; 
i 


CALL UTILSCALL_SYMBOL (''IMAGE=NAME'’, ROUT INE-NAME"" 
ARGCOUNT,ARG1,ARG2...) 
—_ 
BUILTIN 
CALLG; 
status, 
routine_addr; 


IF NOT (status = utilSfind_symbol(. image _desc,.routine_desc,routine_addr) ) 
THEN RETURN .status; 


os CALLG(arglst,.routine_addr) 


DPV LVIVPUPUSUSUSUSIUSVSVUSVSISISISI SSSI 
DUDE BBB EEE EE EAN NIIIrornononer 


MRFOODNAUN EWN O OONOUN EW" OOONOU 


0000 000 -ENTRY UTILSCALL_SYMBOL, Save nothing 
5E 04 C2 0000 SUBL2 #4, SP 
5E BD 000 PUSHL 
7E 04 AC 7D 0000 MOVQ  IMAGE_DESC, -(SP) 
FE77 CF : FB 00 CALLS #3, UTILSFIND_SYMBOL 
05 E9 0001 BLBC STATUS, 
00 BE 0c AC FA B88) CALLG ARGLST, @ROUTINE_ADDR 
04 00018 1$: RET 
25 bytes, Routine Base: _UTILSCODE + 0428 


74 
CALBYNAME .B52; 1 


vOe 


Pete Ge Fe Ge ee 


LACALL BY _NA byneatcetly call routine in shareable image by 18-Sep-1984 99:39:67 AX-1 


 —. 


Bliss-32 v4.0-74 p 3 
B. SRC} ae 49 


ilScall symbol = Call routine by string name 14-Sep-1 VMSL CALBYNAME .B852;1 


562 0552 0 END ELUDOM 
-EXTRN LIBSSIGNAL 
PSECT SUMMARY 
Name Bytes Attributes 
-UTILSDATA 4 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, athe ied eg bate fs 
UTILSCODE 1089 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ouamptem Syabo(s oceeee-= Pages Processing 
File Total Loaded Percent Mapped Time 
-$255$DUA28: CSYSLIBILIB.L32;1 18619 121 0 1000 00:01.9 
COMMAND QUALIFIERS 
PLISS/CHECK OCF LELD. INITIAL .OPT IAI ZED /MOTRACE/L1S9L 158s CALBYNARE/08.J208J8 : CALBYMARE MSRC$: CALBYNAME /UPDATE=(ENH$: CALBY NAME 
Size: 1075 code + 18 data bytes 
Run Time: B0:46-8 
Elapsed Time: 00:45.0 
Lines/CPU Min: 1506 
Lexemes/CPU-Min: 28504 
ee Used: 180 pages 
Compilation Complete 
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